home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesgraf2.s < prev    next >
Text File  |  1990-11-23  |  2KB  |  53 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Graphics Library routines 2 of 5.
  13. ;*  The 3 routines here are together because graf_mouse and graf_handle 
  14. ;*  are used by virtually every GEM program, and graf_mkstate is avaiable 
  15. ;*  for free because its stack looks the same as graf_handle.
  16. ;*
  17. ;*************************************************************************
  18.  
  19. ;-------------------------------------------------------------------------
  20. ; graf_handle
  21. ; graf_mkstate
  22. ;-------------------------------------------------------------------------
  23.  
  24. _graf_handle::
  25.           AControl  77,0,5,0
  26.           bra.s     graf_hndstate
  27. _graf_mkstate::
  28.           AControl  79,0,5,0
  29. graf_hndstate:
  30.           .cargs    #8,.p1.l,.p2.l,.p3.l,.p4.l
  31.           link      a6,#-10
  32.  
  33.           moveq.l   #-10,d2             ;  = intout
  34.           ACall     RET2HERE
  35.           
  36.           moveq.l   #-10,d1
  37.           lea       .p1(a6),a1
  38.           jmp       (a0)
  39.  
  40. ;-------------------------------------------------------------------------
  41. ; graf_mouse
  42. ;-------------------------------------------------------------------------
  43.  
  44. _graf_mouse::
  45.           .cargs    #4,.num,.pform.l
  46.           AControl  78,1,1,1
  47.           lea       .num(sp),a1         ; -> intin
  48.           lea       .pform(sp),a0       ; -> adrin
  49.           ACall     RET2USER
  50.           
  51. ;         end of code
  52.  
  53.